home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpenv.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  45.0 KB  |  2,124 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpenv.h"
  4. init_cmpenv(){do_init(VV);}
  5. /*    local entry for function INIT-ENV    */
  6.  
  7. static object LI1()
  8.  
  9. {     VMB1 VMS1 VMV1
  10. TTL:;
  11.     setq(VV[0],small_fixnum(0));
  12.     setq(VV[1],small_fixnum(0));
  13.     setq(VV[2],small_fixnum(-1));
  14.     setq(VV[3],small_fixnum(0));
  15.     setq(VV[4],small_fixnum(0));
  16.     setq(VV[5],Cnil);
  17.     setq(VV[6],Cnil);
  18.     setq(VV[7],Cnil);
  19.     setq(VV[8],Cnil);
  20.     setq(VV[9],Cnil);
  21.     setq(VV[10],Cnil);
  22.     setq(VV[11],Cnil);
  23.     setq(VV[12],Cnil);
  24.     setq(VV[13],Cnil);
  25.     setq(VV[14],Cnil);
  26.     setq(VV[15],Cnil);
  27.     setq(VV[16],Cnil);
  28.     setq(VV[17],small_fixnum(0));
  29.     setq(VV[18],Cnil);
  30.     {object V1 = Cnil;
  31.     VMR1(V1)}
  32. }
  33. /*    macro definition for NEXT-CFUN    */
  34.  
  35. static L2()
  36. {register object *base=vs_base;
  37.     register object *sup=base+VM2; VC2
  38.     vs_reserve(VM2);
  39.     check_arg(2);
  40.     vs_top=sup;
  41.     {object V2=base[0]->c.c_cdr;
  42.     if(!endp(V2))invalid_macro_call();}
  43.     base[2]= VV[19];
  44.     vs_top=(vs_base=base+2)+1;
  45.     return;
  46. }
  47. /*    local entry for function ADD-SYMBOL    */
  48.  
  49. static object LI3(V4)
  50.  
  51. object V4;
  52. {     VMB3 VMS3 VMV3
  53. TTL:;
  54.     {object V5;
  55.     {register object x= (V4),V6= symbol_value(VV[5]);
  56.     while(!endp(V6))
  57.     if(type_of(V6->c.c_car)==t_cons &&eql(x,V6->c.c_car->c.c_car)){
  58.     V5= (V6->c.c_car);
  59.     goto T38;
  60.     }else V6=V6->c.c_cdr;
  61.     V5= Cnil;}
  62. T38:;
  63.     if(((V5))==Cnil){
  64.     goto T40;}
  65.     {object V7 = cadr((V5));
  66.     VMR3(V7)}
  67. T40:;
  68.     (void)((*(LnkLI113))((V4)));
  69.     V8= list(2,(V4),symbol_value(VV[2]));
  70.     setq(VV[5],make_cons(/* INLINE-ARGS */V8,symbol_value(VV[5])));
  71.     {object V9 = symbol_value(VV[2]);
  72.     VMR3(V9)}}
  73. }
  74. /*    function definition for WT-TO-STRING    */
  75.  
  76. static L4()
  77. {register object *base=vs_base;
  78.     register object *sup=base+VM4; VC4
  79.     vs_reserve(VM4);
  80.     bds_check;
  81.     {object V10;
  82.     check_arg(1);
  83.     V10=(base[0]);
  84.     vs_top=sup;
  85. TTL:;
  86.     vs_base=vs_top;
  87.     (void) (*Lnk114)();
  88.     vs_top=sup;
  89.     bds_bind(VV[20],vs_base[0]);
  90.     bds_bind(VV[21],Cnil);
  91.     (void)((*(LnkLI115))((V10)));
  92.     base[3]= (VV[20]->s.s_dbind);
  93.     vs_top=(vs_base=base+3)+1;
  94.     (void) (*Lnk116)();
  95.     bds_unwind1;
  96.     bds_unwind1;
  97.     return;
  98.     }
  99. }
  100. /*    local entry for function ADD-OBJECT    */
  101.  
  102. static object LI5(V12)
  103.  
  104. register object V12;
  105. {     VMB5 VMS5 VMV5
  106. TTL:;
  107.     {object V13;
  108.     V13= Cnil;
  109.     base[0]= (V12);
  110.     vs_top=(vs_base=base+0)+1;
  111.     (void) (*Lnk117)();
  112.     vs_top=sup;
  113.     if((vs_base[0])==Cnil){
  114.     goto T50;}
  115.     if(!(type_of((V12))==t_cons)){
  116.     goto T55;}
  117.     if(!((car((V12)))==(VV[22]))){
  118.     goto T55;}
  119.     base[0]= cdr((V12));
  120.     vs_top=(vs_base=base+0)+1;
  121.     (void) (*Lnk117)();
  122.     vs_top=sup;
  123.     if((vs_base[0])!=Cnil){
  124.     goto T55;}
  125.     V12= cdr((V12));
  126.     goto T53;
  127. T55:;
  128.     base[0]= (V12);
  129.     vs_top=(vs_base=base+0)+1;
  130.     (void) (*Lnk118)();
  131.     vs_top=sup;
  132.     V14= vs_base[0];
  133.     V12= list(2,VV[23],V14);
  134. T53:;
  135.     (void)((*(LnkLI113))(Cnil));
  136.     V15= list(2,symbol_value(VV[2]),(V12));
  137.     setq(VV[24],make_cons(/* INLINE-ARGS */V15,symbol_value(VV[24])));
  138.     {object V16 = symbol_value(VV[2]);
  139.     VMR5(V16)}
  140. T50:;
  141.     {register object x= (V12),V17= symbol_value(VV[5]);
  142.     while(!endp(V17))
  143.     if(type_of(V17->c.c_car)==t_cons &&eql(x,V17->c.c_car->c.c_car)){
  144.     V13= (V17->c.c_car);
  145.     goto T72;
  146.     }else V17=V17->c.c_cdr;
  147.     V13= Cnil;}
  148. T72:;
  149.     if(((V13))==Cnil){
  150.     goto T70;}
  151.     {object V18 = cadr((V13));
  152.     VMR5(V18)}
  153. T70:;
  154.     base[0]= (V12);
  155.     base[1]= VV[25];
  156.     vs_top=(vs_base=base+0)+2;
  157.     (void) (*Lnk119)();
  158.     vs_top=sup;
  159.     if((vs_base[0])==Cnil){
  160.     goto T74;}
  161.     (void)((*(LnkLI113))(Cnil));{object V19;
  162.     V19= symbol_value(VV[2]);{object V21;
  163.     base[0]= (V12);
  164.     vs_top=(vs_base=base+0)+1;
  165.     (void) (*Lnk120)();
  166.     vs_top=sup;
  167.     V21= vs_base[0];
  168.     if(V21==Cnil)goto T82;
  169.     V20= V21;
  170.     goto T81;
  171. T82:;}
  172.     V20= (VFUN_NARGS=1,(*(LnkLI121))(VV[27]));
  173. T81:;
  174.     V22= list(2,V19,list(2,VV[26],V20));
  175.     setq(VV[24],make_cons(/* INLINE-ARGS */V22,symbol_value(VV[24])));}
  176.     {object V23 = symbol_value(VV[2]);
  177.     VMR5(V23)}
  178. T74:;
  179.     (void)((*(LnkLI113))((V12)));
  180.     V24= list(2,(V12),symbol_value(VV[2]));
  181.     setq(VV[5],make_cons(/* INLINE-ARGS */V24,symbol_value(VV[5])));
  182.     {object V25 = symbol_value(VV[2]);
  183.     VMR5(V25)}}
  184. }
  185. /*    local entry for function ADD-CONSTANT    */
  186.  
  187. static object LI6(V27)
  188.  
  189. object V27;
  190. {     VMB6 VMS6 VMV6
  191. TTL:;
  192.     {object V28;
  193.     V28= Cnil;
  194.     {register object x= (V27),V29= symbol_value(VV[6]);
  195.     while(!endp(V29))
  196.     if(type_of(V29->c.c_car)==t_cons &&eql(x,V29->c.c_car->c.c_car)){
  197.     V28= (V29->c.c_car);
  198.     goto T92;
  199.     }else V29=V29->c.c_cdr;
  200.     V28= Cnil;}
  201. T92:;
  202.     if(((V28))==Cnil){
  203.     goto T90;}
  204.     {object V30 = cadr((V28));
  205.     VMR6(V30)}
  206. T90:;
  207.     (void)((*(LnkLI113))(Cnil));
  208.     V31= list(2,symbol_value(VV[2]),(V27));
  209.     setq(VV[24],make_cons(/* INLINE-ARGS */V31,symbol_value(VV[24])));
  210.     V32= list(2,(V27),symbol_value(VV[2]));
  211.     setq(VV[6],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[6])));
  212.     {object V33 = symbol_value(VV[2]);
  213.     VMR6(V33)}}
  214. }
  215. /*    macro definition for NEXT-CVAR    */
  216.  
  217. static L7()
  218. {register object *base=vs_base;
  219.     register object *sup=base+VM7; VC7
  220.     vs_reserve(VM7);
  221.     check_arg(2);
  222.     vs_top=sup;
  223.     {object V34=base[0]->c.c_cdr;
  224.     if(!endp(V34))invalid_macro_call();}
  225.     base[2]= VV[28];
  226.     vs_top=(vs_base=base+2)+1;
  227.     return;
  228. }
  229. /*    macro definition for NEXT-CMACRO    */
  230.  
  231. static L8()
  232. {register object *base=vs_base;
  233.     register object *sup=base+VM8; VC8
  234.     vs_reserve(VM8);
  235.     check_arg(2);
  236.     vs_top=sup;
  237.     {object V35=base[0]->c.c_cdr;
  238.     if(!endp(V35))invalid_macro_call();}
  239.     base[2]= VV[29];
  240.     vs_top=(vs_base=base+2)+1;
  241.     return;
  242. }
  243. /*    local entry for function FUNCTION-ARG-TYPES    */
  244.  
  245. static object LI9(V37)
  246.  
  247. object V37;
  248. {     VMB9 VMS9 VMV9
  249. TTL:;
  250.     {object V38;
  251.     register object V39;
  252.     object V40;
  253.     V38= Cnil;
  254.     V39= Cnil;
  255.     V40= Cnil;
  256.     {register object V41;
  257.     register int V42;
  258.     V42= 0;
  259.     V41= (V37);
  260. T105:;
  261.     if(!(endp((V41)))){
  262.     goto T106;}
  263.     V40= reverse((V39));
  264.     goto T102;
  265. T106:;
  266.     {register object x= car((V41)),V43= VV[30];
  267.     while(!endp(V43))
  268.     if(eql(x,V43->c.c_car)){
  269.     goto T111;
  270.     }else V43=V43->c.c_cdr;}
  271.     if(!(equal(car((V41)),VV[31]))){
  272.     goto T110;}
  273. T111:;
  274.     V38= Ct;
  275.     V44= make_cons(VV[31],(V39));
  276.     V40= reverse(/* INLINE-ARGS */V44);
  277.     goto T102;
  278. T110:;
  279.     if(!((V42)<(9))){
  280.     goto T121;}
  281.     {register object V46;
  282.     V46= (*(LnkLI122))(car((V41)));
  283.     if(!((VV[32])==((V46)))){
  284.     goto T125;}
  285.     V45= Ct;
  286.     goto T119;
  287. T125:;
  288.     V45= (V46);
  289.     goto T119;}
  290. T121:;
  291.     if(!((car((V41)))==(VV[31]))){
  292.     goto T128;}
  293.     V45= VV[31];
  294.     goto T119;
  295. T128:;
  296.     V45= Ct;
  297. T119:;
  298.     V39= make_cons(V45,(V39));
  299.     V41= cdr((V41));
  300.     V42= (1)+(V42);
  301.     goto T105;}
  302. T102:;
  303.     if(((V38))==Cnil){
  304.     goto T134;}
  305.     {register object V47;
  306.     V47= (V40);
  307. T138:;
  308.     if(((V47))!=Cnil){
  309.     goto T139;}
  310.     goto T134;
  311. T139:;
  312.     {register object V49;
  313.     if(!((car((V47)))==(VV[31]))){
  314.     goto T146;}
  315.     V49= VV[31];
  316.     goto T144;
  317. T146:;
  318.     V49= Ct;
  319. T144:;
  320.     if(type_of(V47)!=t_cons)FEwrong_type_argument(Scons,V47);
  321.     (V47)->c.c_car = (V49);}
  322.     V47= cdr((V47));
  323.     goto T138;}
  324. T134:;
  325.     {object V50 = (V40);
  326.     VMR9(V50)}}
  327. }
  328. /*    local entry for function FUNCTION-RETURN-TYPE    */
  329.  
  330. static object LI10(V52)
  331.  
  332. register object V52;
  333. {     VMB10 VMS10 VMV10
  334. TTL:;
  335.     if((car((V52)))==(VV[33])){
  336.     goto T153;}
  337.     goto T152;
  338. T153:;
  339.     V52= cdr((V52));
  340. T152:;
  341.     if(!(endp((V52)))){
  342.     goto T157;}
  343.     {object V53 = Cnil;
  344.     VMR10(V53)}
  345. T157:;
  346.     if(!(type_of(car((V52)))==t_cons)){
  347.     goto T160;}
  348.     if(!((caar((V52)))==(VV[33]))){
  349.     goto T160;}
  350.     V52= cdr(car((V52)));
  351.     goto TTL;
  352. T160:;
  353.     {register object V54;
  354.     register object V55;
  355.     V54= (V52);
  356.     V55= Cnil;
  357. T167:;
  358.     if(!(endp((V54)))){
  359.     goto T168;}
  360.     if(!(((V54))==Cnil)){
  361.     goto T172;}
  362.     goto T171;
  363. T172:;
  364.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[34],(V52))));
  365. T171:;
  366.     {object V56 = nreverse((V55));
  367.     VMR10(V56)}
  368. T168:;
  369.     {register object V57;
  370.     if(!((car((V54)))==(VV[31]))){
  371.     goto T178;}
  372.     V57= VV[31];
  373.     goto T176;
  374. T178:;
  375.     V57= (*(LnkLI122))(car((V54)));
  376. T176:;
  377.     if(!(((V57))==(VV[32]))){
  378.     goto T180;}
  379.     V57= Ct;
  380. T180:;
  381.     V55= make_cons((V57),(V55));}
  382.     V54= cdr((V54));
  383.     goto T167;}
  384. }
  385. /*    local entry for function ADD-FUNCTION-PROCLAMATION    */
  386.  
  387. static object LI11(V61,V62,V63)
  388.  
  389. object V61;register object V62;register object V63;
  390. {     VMB11 VMS11 VMV11
  391. TTL:;
  392.     {register object V64;
  393.     register object V65;
  394.     register object V66;
  395.     V64= Ct;
  396.     V65= Cnil;
  397.     V66= Cnil;
  398.     if(!(type_of((V61))==t_symbol)){
  399.     goto T192;}
  400.     if(!(type_of((V62))==t_cons||((V62))==Cnil)){
  401.     goto T192;}
  402.     {object V67= cdr((V62));
  403.     if(!(type_of(V67)==t_cons||(V67)==Cnil)){
  404.     goto T192;}}
  405.     if(((V62))==Cnil){
  406.     goto T199;}
  407.     if(!((car((V62)))==(VV[31]))){
  408.     goto T200;}
  409. T199:;
  410.     V65= VV[35];
  411.     goto T198;
  412. T200:;
  413.     V65= (*(LnkLI124))(car((V62)));
  414. T198:;
  415.     V66= (*(LnkLI125))(cdr((V62)));
  416.     if(!(type_of((V66))==t_cons)){
  417.     goto T210;}
  418.     if(!(endp(cdr((V66))))){
  419.     goto T210;}
  420.     if((car((V66)))==(VV[31])){
  421.     goto T210;}
  422.     if(type_of((V65))==t_cons){
  423.     goto T221;}
  424.     V69= Cnil;
  425.     goto T220;
  426. T221:;
  427.     V69= (V65);
  428. T220:;
  429.     {register object x= VV[31],V68= V69;
  430.     while(!endp(V68))
  431.     if(eql(x,V68->c.c_car)){
  432.     goto T219;
  433.     }else V68=V68->c.c_cdr;
  434.     goto T218;}
  435. T219:;
  436.     V66= Ct;
  437.     goto T216;
  438. T218:;
  439.     V66= car((V66));
  440. T216:;
  441.     goto T208;
  442. T210:;
  443.     V64= Cnil;
  444. T208:;
  445.     {object V70;
  446.     if(type_of((V65))==t_cons||((V65))==Cnil){
  447.     goto T226;}
  448.     V70= Cnil;
  449.     goto T225;
  450. T226:;
  451.     V70= ((length((V65)))<(64)?Ct:Cnil);
  452. T225:;
  453.     if(((V70))==Cnil){
  454.     goto T229;}
  455.     goto T224;
  456. T229:;
  457.     V64= Cnil;}
  458. T224:;
  459.     {register object V71;
  460.     V71= (V61);
  461. T233:;
  462.     if(!(type_of((V71))==t_symbol)){
  463.     goto T237;}
  464.     goto T236;
  465. T237:;
  466.     V61= (V71);
  467.     V63= Cnil;
  468.     goto TTL;
  469. T236:;
  470.     if(!(((V65))==(VV[31]))){
  471.     goto T245;}
  472.     (void)(remprop((V71),VV[36]));
  473.     goto T243;
  474. T245:;
  475.     (void)(putprop((V71),(V65),VV[36]));
  476. T243:;
  477.     (void)(putprop((V71),(V66),VV[37]));
  478.     if(((V64))==Cnil){
  479.     goto T250;}
  480.     (void)(putprop((V71),Ct,VV[38]));
  481.     goto T248;
  482. T250:;
  483.     (void)(remprop((V71),VV[38]));
  484. T248:;
  485.     V63= cdr((V63));
  486.     if(!(type_of((V63))==t_cons)){
  487.     goto T255;}
  488.     goto T254;
  489. T255:;
  490.     {object V72 = VV[39];
  491.     VMR11(V72)}
  492. T254:;
  493.     V71= car((V63));
  494.     goto T233;}
  495. T192:;
  496.     {object V73 = (VFUN_NARGS=3,(*(LnkLI123))(VV[40],(V61),(V62)));
  497.     VMR11(V73)}}
  498. }
  499. /*    local entry for function ADD-FUNCTION-DECLARATION    */
  500.  
  501. static object LI12(V77,V78,V79)
  502.  
  503. object V77;object V78;object V79;
  504. {     VMB12 VMS12 VMV12
  505. TTL:;
  506.     if(!(type_of((V77))==t_symbol)){
  507.     goto T261;}
  508.     V80= (*(LnkLI126))((V77));
  509.     V81= (*(LnkLI124))((V78));
  510.     V82= list(3,/* INLINE-ARGS */V80,/* INLINE-ARGS */V81,(*(LnkLI125))((V79)));
  511.     setq(VV[15],make_cons(/* INLINE-ARGS */V82,symbol_value(VV[15])));
  512.     {object V83 = symbol_value(VV[15]);
  513.     VMR12(V83)}
  514. T261:;
  515.     {object V84 = (VFUN_NARGS=2,(*(LnkLI123))(VV[41],(V77)));
  516.     VMR12(V84)}
  517. }
  518. /*    local entry for function GET-ARG-TYPES    */
  519.  
  520. static object LI13(V86)
  521.  
  522. object V86;
  523. {     VMB13 VMS13 VMV13
  524. TTL:;
  525.     {object V87;
  526.     V87= Cnil;
  527.     {register object x= (V86),V88= symbol_value(VV[15]);
  528.     while(!endp(V88))
  529.     if(type_of(V88->c.c_car)==t_cons &&eql(x,V88->c.c_car->c.c_car)){
  530.     V87= (V88->c.c_car);
  531.     goto T268;
  532.     }else V88=V88->c.c_cdr;
  533.     V87= Cnil;}
  534. T268:;
  535.     if(((V87))==Cnil){
  536.     goto T266;}
  537.     {object V89 = cadr((V87));
  538.     VMR13(V89)}
  539. T266:;
  540.     {object V90 = get((V86),VV[36],Cnil);
  541.     VMR13(V90)}}
  542. }
  543. /*    local entry for function GET-RETURN-TYPE    */
  544.  
  545. static object LI14(V92)
  546.  
  547. register object V92;
  548. {     VMB14 VMS14 VMV14
  549. TTL:;
  550.     {object V93;
  551.     object V94;
  552.     register object V95;
  553.     {register object x= (V92),V96= symbol_value(VV[15]);
  554.     while(!endp(V96))
  555.     if(type_of(V96->c.c_car)==t_cons &&eql(x,V96->c.c_car->c.c_car)){
  556.     V93= (V96->c.c_car);
  557.     goto T269;
  558.     }else V96=V96->c.c_cdr;
  559.     V93= Cnil;}
  560. T269:;
  561.     if(((V93))==Cnil){
  562.     goto T272;}
  563.     V94= caddr((V93));
  564.     goto T270;
  565. T272:;
  566.     V94= get((V92),VV[37],Cnil);
  567. T270:;
  568.     if((get((V92),VV[42],Cnil))==Cnil){
  569.     goto T276;}
  570.     V95= VV[43];
  571.     goto T274;
  572. T276:;
  573.     V95= get((V92),VV[44],Cnil);
  574. T274:;
  575.     if(((V94))==Cnil){
  576.     goto T279;}
  577.     if(((V95))==Cnil){
  578.     goto T282;}
  579.     V95= (*(LnkLI127))((V95),(V94));
  580.     if(((V95))==Cnil){
  581.     goto T285;}
  582.     {object V97 = (V95);
  583.     VMR14(V97)}
  584. T285:;
  585.     {object V98 = (VFUN_NARGS=2,(*(LnkLI128))(VV[45],(V92)));
  586.     VMR14(V98)}
  587. T282:;
  588.     {object V99 = (V94);
  589.     VMR14(V99)}
  590. T279:;
  591.     {object V100 = (V95);
  592.     VMR14(V100)}}
  593. }
  594. /*    local entry for function GET-LOCAL-ARG-TYPES    */
  595.  
  596. static object LI15(V102)
  597.  
  598. object V102;
  599. {     VMB15 VMS15 VMV15
  600. TTL:;
  601.     {object V103;
  602.     V103= Cnil;
  603.     {register object x= (V102),V104= symbol_value(VV[15]);
  604.     while(!endp(V104))
  605.     if(type_of(V104->c.c_car)==t_cons &&eql(x,V104->c.c_car->c.c_car)){
  606.     V103= (V104->c.c_car);
  607.     goto T292;
  608.     }else V104=V104->c.c_cdr;
  609.     V103= Cnil;}
  610. T292:;
  611.     if(((V103))==Cnil){
  612.     goto T290;}
  613.     {object V105 = cadr((V103));
  614.     VMR15(V105)}
  615. T290:;
  616.     {object V106 = Cnil;
  617.     VMR15(V106)}}
  618. }
  619. /*    local entry for function GET-LOCAL-RETURN-TYPE    */
  620.  
  621. static object LI16(V108)
  622.  
  623. object V108;
  624. {     VMB16 VMS16 VMV16
  625. TTL:;
  626.     {object V109;
  627.     V109= Cnil;
  628.     {register object x= (V108),V110= symbol_value(VV[15]);
  629.     while(!endp(V110))
  630.     if(type_of(V110->c.c_car)==t_cons &&eql(x,V110->c.c_car->c.c_car)){
  631.     V109= (V110->c.c_car);
  632.     goto T297;
  633.     }else V110=V110->c.c_cdr;
  634.     V109= Cnil;}
  635. T297:;
  636.     if(((V109))==Cnil){
  637.     goto T295;}
  638.     {object V111 = caddr((V109));
  639.     VMR16(V111)}
  640. T295:;
  641.     {object V112 = Cnil;
  642.     VMR16(V112)}}
  643. }
  644. /*    local entry for function RESET-TOP    */
  645.  
  646. static object LI17()
  647.  
  648. {     VMB17 VMS17 VMV17
  649. TTL:;
  650.     princ_str("vs_top=sup;",VV[46]);
  651.     setq(VV[47],Ct);
  652.     {object V113 = Ct;
  653.     VMR17(V113)}
  654. }
  655. /*    macro definition for BASE-USED    */
  656.  
  657. static L18()
  658. {register object *base=vs_base;
  659.     register object *sup=base+VM18; VC18
  660.     vs_reserve(VM18);
  661.     check_arg(2);
  662.     vs_top=sup;
  663.     {object V114=base[0]->c.c_cdr;
  664.     if(!endp(V114))invalid_macro_call();}
  665.     base[2]= VV[48];
  666.     vs_top=(vs_base=base+2)+1;
  667.     return;
  668. }
  669. /*    local entry for function INLINE-POSSIBLE    */
  670.  
  671. static object LI19(V116)
  672.  
  673. object V116;
  674. {     VMB19 VMS19 VMV19
  675. TTL:;
  676.     if(symbol_value(VV[49])!=Cnil){
  677.     V117= symbol_value(VV[49]);
  678.     goto T301;}{object V118;
  679.     {register object x= (V116),V119= symbol_value(VV[18]);
  680.     while(!endp(V119))
  681.     if(eql(x,V119->c.c_car)){
  682.     V118= V119;
  683.     goto T303;
  684.     }else V119=V119->c.c_cdr;
  685.     V118= Cnil;}
  686. T303:;
  687.     if(V118==Cnil)goto T302;
  688.     V117= V118;
  689.     goto T301;
  690. T302:;}
  691.     V117= get((V116),VV[50],Cnil);
  692. T301:;
  693.     {object V120 = ((V117)==Cnil?Ct:Cnil);
  694.     VMR19(V120)}
  695. }
  696. /*    local entry for function PROCLAIM    */
  697.  
  698. static object LI20(V122)
  699.  
  700. object V122;
  701. {     VMB20 VMS20 VMV20
  702. TTL:;
  703.     {object V123= car((V122));
  704.     if((V123!= VV[129]))goto T305;
  705.     {register object V124;
  706.     object V125;
  707.     V124= cdr((V122));
  708.     V125= car((V124));
  709. T309:;
  710.     if(!(endp((V124)))){
  711.     goto T310;}
  712.     goto T304;
  713. T310:;
  714.     if(!(type_of((V125))==t_symbol)){
  715.     goto T316;}
  716.     base[2]= (V125);
  717.     vs_top=(vs_base=base+2)+1;
  718.     (void) (*Lnk130)();
  719.     vs_top=sup;
  720.     goto T314;
  721. T316:;
  722.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[51],(V125))));
  723. T314:;
  724.     V124= cdr((V124));
  725.     V125= car((V124));
  726.     goto T309;}
  727. T305:;
  728.     if((V123!= VV[131]))goto T324;
  729.     {register object V126;
  730.     register object V127;
  731.     V126= cdr((V122));
  732.     V127= car((V126));
  733. T328:;
  734.     if(!(endp((V126)))){
  735.     goto T329;}
  736.     goto T304;
  737. T329:;
  738.     if(!(type_of((V127))==t_symbol)){
  739.     goto T333;}
  740.     V127= list(2,(V127),small_fixnum(3));
  741. T333:;
  742.     if(!(type_of((V127))==t_cons)){
  743.     goto T338;}
  744.     if(!(type_of(cdr((V127)))==t_cons)){
  745.     goto T338;}
  746.     {object V128= cadr((V127));
  747.     if(!(type_of(V128)==t_fixnum||
  748. type_of(V128)==t_bignum||
  749. type_of(V128)==t_ratio||
  750. type_of(V128)==t_shortfloat||
  751. type_of(V128)==t_longfloat||
  752. type_of(V128)==t_complex)){
  753.     goto T338;}}
  754.     base[2]= small_fixnum(0);
  755.     base[3]= cadr((V127));
  756.     base[4]= small_fixnum(3);
  757.     vs_top=(vs_base=base+2)+3;
  758.     Lmonotonically_nondecreasing();
  759.     vs_top=sup;
  760.     if((vs_base[0])!=Cnil){
  761.     goto T339;}
  762. T338:;
  763.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[52],(V127))));
  764.     goto T337;
  765. T339:;
  766.     {object V129= car((V127));
  767.     if((V129!= VV[85]))goto T350;
  768.     setq(VV[53],(number_compare(cadr((V127)),small_fixnum(1))>=0?Ct:Cnil));
  769.     setq(VV[54],(number_compare(cadr((V127)),small_fixnum(2))>=0?Ct:Cnil));
  770.     setq(VV[49],(number_compare(cadr((V127)),small_fixnum(3))>=0?Ct:Cnil));
  771.     goto T337;
  772. T350:;
  773.     if((V129!= VV[86]))goto T356;
  774.     setq(VV[55],cadr((V127)));
  775.     goto T337;
  776. T356:;
  777.     if((V129!= VV[132]))goto T358;
  778.     setq(VV[56],cadr((V127)));
  779.     goto T337;
  780. T358:;
  781.     if((V129!= VV[133]))goto T360;
  782.     setq(VV[56],number_minus(small_fixnum(3),cadr((V127))));
  783.     goto T337;
  784. T360:;
  785.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[57],car((V127)))));}
  786. T337:;
  787.     V126= cdr((V126));
  788.     V127= car((V126));
  789.     goto T328;}
  790. T324:;
  791.     if((V123!= VV[134]))goto T367;
  792.     if(!(type_of(cdr((V122)))==t_cons)){
  793.     goto T369;}
  794.     (void)((*(LnkLI135))(cadr((V122)),cddr((V122))));
  795.     goto T304;
  796. T369:;
  797.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[58],(V122))));
  798.     goto T304;
  799. T367:;
  800.     if((V123!= VV[136])
  801.     && (V123!= VV[137])
  802.     && (V123!= VV[138])
  803.     && (V123!= VV[139]))goto T371;
  804.     (void)((*(LnkLI135))(car((V122)),cdr((V122))));
  805.     goto T304;
  806. T371:;
  807.     if((V123!= VV[140]))goto T372;
  808.     if(!(type_of(cdr((V122)))==t_cons)){
  809.     goto T374;}
  810.     if(!(type_of(cadr((V122)))==t_cons)){
  811.     goto T374;}
  812.     if(!((caadr((V122)))==(VV[26]))){
  813.     goto T374;}
  814.     (void)((*(LnkLI141))(caddr((V122)),cdr(cadr((V122))),cddr((V122))));
  815.     goto T304;
  816. T374:;
  817.     (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[59],(V122))));
  818.     goto T304;
  819. T372:;
  820.     if((V123!= VV[26]))goto T380;
  821.     if(!(type_of(cdr((V122)))==t_cons)){
  822.     goto T382;}
  823.     (void)((*(LnkLI141))(cadr((V122)),cddr((V122)),Cnil));
  824.     goto T304;
  825. T382:;
  826.     (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[60],(V122))));
  827.     goto T304;
  828. T380:;
  829.     if((V123!= VV[90]))goto T384;
  830.     {register object V130;
  831.     object V131;
  832.     V130= cdr((V122));
  833.     V131= car((V130));
  834. T388:;
  835.     if(!(endp((V130)))){
  836.     goto T389;}
  837.     goto T304;
  838. T389:;
  839.     if(!(type_of((V131))==t_symbol)){
  840.     goto T395;}
  841.     (void)(remprop((V131),VV[50]));
  842.     goto T393;
  843. T395:;
  844.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[61],(V131))));
  845. T393:;
  846.     V130= cdr((V130));
  847.     V131= car((V130));
  848.     goto T388;}
  849. T384:;
  850.     if((V123!= VV[92]))goto T402;
  851.     {register object V132;
  852.     object V133;
  853.     V132= cdr((V122));
  854.     V133= car((V132));
  855. T406:;
  856.     if(!(endp((V132)))){
  857.     goto T407;}
  858.     goto T304;
  859. T407:;
  860.     if(!(type_of((V133))==t_symbol)){
  861.     goto T413;}
  862.     (void)(putprop((V133),Ct,VV[50]));
  863.     goto T411;
  864. T413:;
  865.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[62],(V133))));
  866. T411:;
  867.     V132= cdr((V132));
  868.     V133= car((V132));
  869.     goto T406;}
  870. T402:;
  871.     if((V123!= VV[79])
  872.     && (V123!= VV[142]))goto T420;
  873.     {register object V134;
  874.     object V135;
  875.     V134= cdr((V122));
  876.     V135= car((V134));
  877. T424:;
  878.     if(!(endp((V134)))){
  879.     goto T425;}
  880.     goto T304;
  881. T425:;
  882.     if(type_of((V135))==t_symbol){
  883.     goto T429;}
  884.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[63],(V135))));
  885. T429:;
  886.     V134= cdr((V134));
  887.     V135= car((V134));
  888.     goto T424;}
  889. T420:;
  890.     if((V123!= VV[143]))goto T437;
  891.     {register object V136;
  892.     register object V137;
  893.     V136= cdr((V122));
  894.     V137= car((V136));
  895. T441:;
  896.     if(!(endp((V136)))){
  897.     goto T442;}
  898.     goto T304;
  899. T442:;
  900.     if(!(type_of((V137))==t_symbol)){
  901.     goto T448;}
  902.     {register object x= (V137),V138= symbol_value(VV[64]);
  903.     while(!endp(V138))
  904.     if(eql(x,V138->c.c_car)){
  905.     goto T446;
  906.     }else V138=V138->c.c_cdr;}
  907.     setq(VV[64],make_cons((V137),symbol_value(VV[64])));
  908.     goto T446;
  909. T448:;
  910.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[65],(V137))));
  911. T446:;
  912.     V136= cdr((V136));
  913.     V137= car((V136));
  914.     goto T441;}
  915. T437:;
  916.     if((V123== VV[144])
  917.     || (V123== VV[145])
  918.     || (V123== VV[146])
  919.     || (V123== VV[147])
  920.     || (V123== VV[148]))goto T459;
  921.     if((V123== VV[137])
  922.     || (V123== VV[149])
  923.     || (V123== VV[25])
  924.     || (V123== VV[150])
  925.     || (V123== VV[151]))goto T459;
  926.     if((V123== VV[152])
  927.     || (V123== VV[136])
  928.     || (V123== VV[153])
  929.     || (V123== VV[154])
  930.     || (V123== VV[32]))goto T459;
  931.     if((V123== VV[155])
  932.     || (V123== VV[156])
  933.     || (V123== VV[139])
  934.     || (V123== Cnil)
  935.     || (V123== VV[157]))goto T459;
  936.     if((V123== VV[158])
  937.     || (V123== VV[159])
  938.     || (V123== VV[160])
  939.     || (V123== VV[161])
  940.     || (V123== VV[162]))goto T459;
  941.     if((V123== VV[163])
  942.     || (V123== VV[164])
  943.     || (V123== VV[165])
  944.     || (V123== VV[138])
  945.     || (V123== VV[166]))goto T459;
  946.     if((V123== VV[167])
  947.     || (V123== VV[168])
  948.     || (V123== VV[169])
  949.     || (V123== VV[170])
  950.     || (V123== VV[171]))goto T459;
  951.     if((V123== VV[172])
  952.     || (V123== VV[173])
  953.     || (V123== VV[174])
  954.     || (V123== VV[175])
  955.     || (V123== Ct))goto T459;
  956.     if((V123!= VV[176])
  957.     && (V123!= VV[177])
  958.     && (V123!= VV[178]))goto T458;
  959. T459:;
  960.     (void)((*(LnkLI135))(car((V122)),cdr((V122))));
  961.     goto T304;
  962. T458:;
  963.     {register object x= car((V122)),V139= symbol_value(VV[64]);
  964.     while(!endp(V139))
  965.     if(eql(x,V139->c.c_car)){
  966.     goto T460;
  967.     }else V139=V139->c.c_cdr;}
  968.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[66],car((V122)))));
  969. T460:;
  970.     base[0]= get(car((V122)),VV[67],Cnil);
  971.     vs_top=(vs_base=base+0)+1;
  972.     Lfunctionp();
  973.     vs_top=sup;
  974.     if((vs_base[0])!=Cnil){
  975.     goto T463;}
  976.     goto T304;
  977. T463:;
  978.     {register object V140;
  979.     object V141;
  980.     V140= cdr((V122));
  981.     V141= car((V140));
  982. T469:;
  983.     if(!(endp((V140)))){
  984.     goto T470;}
  985.     goto T304;
  986. T470:;
  987.     V142= get(car((V122)),VV[67],Cnil);
  988.     (void)((
  989.     V143 = V142,
  990.     (type_of(V143) == t_sfun ?(*(object (*)())((V143)->sfn.sfn_self)):
  991.     (fcall.fun=(V143),fcall.argd=1,fcalln))((V141))));
  992.     V140= cdr((V140));
  993.     V141= car((V140));
  994.     goto T469;}}
  995. T304:;
  996.     {object V144 = Cnil;
  997.     VMR20(V144)}
  998. }
  999. /*    local entry for function PROCLAIM-VAR    */
  1000.  
  1001. static object LI21(V147,V148)
  1002.  
  1003. register object V147;object V148;
  1004. {     VMB21 VMS21 VMV21
  1005. TTL:;
  1006.     V147= (*(LnkLI122))((V147));
  1007.     {register object V149;
  1008.     register object V150;
  1009.     V149= (V148);
  1010.     V150= car((V149));
  1011. T486:;
  1012.     if(!(endp((V149)))){
  1013.     goto T487;}
  1014.     {object V151 = Cnil;
  1015.     VMR21(V151)}
  1016. T487:;
  1017.     if(!(type_of((V150))==t_symbol)){
  1018.     goto T493;}
  1019.     {register object V152;
  1020.     register object V153;
  1021.     V152= get((V150),VV[68],Cnil);
  1022.     V153= (*(LnkLI179))((V150));
  1023.     if(((V152))==Cnil){
  1024.     goto T500;}
  1025.     V152= (*(LnkLI127))((V152),(V147));
  1026.     goto T498;
  1027. T500:;
  1028.     V152= (V147);
  1029. T498:;
  1030.     if(((V153))==Cnil){
  1031.     goto T502;}
  1032.     V154= structure_ref((V153),VV[69],5);
  1033.     V152= (*(LnkLI127))((V152),/* INLINE-ARGS */V154);
  1034. T502:;
  1035.     if(((V152))!=Cnil){
  1036.     goto T506;}
  1037.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[70],(V150))));
  1038. T506:;
  1039.     (void)(putprop((V150),(V152),VV[68]));
  1040.     if(((V153))==Cnil){
  1041.     goto T491;}
  1042.     (void)(structure_set((V153),VV[69],5,(V152)));
  1043.     goto T491;}
  1044. T493:;
  1045.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[71],(V150))));
  1046. T491:;
  1047.     V149= cdr((V149));
  1048.     V150= car((V149));
  1049.     goto T486;}
  1050. }
  1051. /*    function definition for C1BODY    */
  1052.  
  1053. static L22()
  1054. {register object *base=vs_base;
  1055.     register object *sup=base+VM22; VC22
  1056.     vs_reserve(VM22);
  1057.     {object V155;
  1058.     object V156;
  1059.     check_arg(2);
  1060.     V155=(base[0]);
  1061.     V156=(base[1]);
  1062.     vs_top=sup;
  1063. TTL:;
  1064.     {object V157;
  1065.     object V158;
  1066.     register object V159;
  1067.     object V160;
  1068.     object V161;
  1069.     object V162;
  1070.     V157= Cnil;
  1071.     V158= Cnil;
  1072.     V159= Cnil;
  1073.     V160= Cnil;
  1074.     V161= Cnil;
  1075.     V162= Cnil;
  1076. T525:;
  1077.     if(!(endp((V155)))){
  1078.     goto T527;}
  1079.     goto T523;
  1080. T527:;
  1081.     V162= (*(LnkLI180))(car((V155)));
  1082.     if(!(type_of((V162))==t_string)){
  1083.     goto T534;}
  1084.     if(((V156))==Cnil){
  1085.     goto T537;}
  1086.     if(endp(cdr((V155)))){
  1087.     goto T537;}
  1088.     if(((V161))==Cnil){
  1089.     goto T536;}
  1090. T537:;
  1091.     goto T523;
  1092. T536:;
  1093.     V161= (V162);
  1094.     goto T532;
  1095. T534:;
  1096.     if(!(type_of((V162))==t_cons)){
  1097.     goto T545;}
  1098.     if(!((car((V162)))==(VV[72]))){
  1099.     goto T545;}
  1100.     {object V163;
  1101.     register object V164;
  1102.     V163= cdr((V162));
  1103.     V164= car((V163));
  1104. T552:;
  1105.     if(!(endp((V163)))){
  1106.     goto T553;}
  1107.     goto T532;
  1108. T553:;
  1109.     if(!(type_of((V164))==t_cons)){
  1110.     goto T558;}
  1111.     if(type_of(car((V164)))==t_symbol){
  1112.     goto T557;}
  1113. T558:;
  1114.     (void)((VFUN_NARGS=2,(*(LnkLI121))(VV[73],(V164))));
  1115. T557:;
  1116.     {object V165= car((V164));
  1117.     if((V165!= VV[129]))goto T563;
  1118.     {register object V166;
  1119.     object V167;
  1120.     V166= cdr((V164));
  1121.     V167= car((V166));
  1122. T567:;
  1123.     if(!(endp((V166)))){
  1124.     goto T568;}
  1125.     goto T562;
  1126. T568:;
  1127.     if(type_of((V167))==t_symbol){
  1128.     goto T572;}
  1129.     (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[74],(V164),(V167))));
  1130. T572:;
  1131.     V157= make_cons((V167),(V157));
  1132.     V166= cdr((V166));
  1133.     V167= car((V166));
  1134.     goto T567;}
  1135. T563:;
  1136.     if((V165!= VV[142]))goto T582;
  1137.     {register object V168;
  1138.     object V169;
  1139.     V168= cdr((V164));
  1140.     V169= car((V168));
  1141. T586:;
  1142.     if(!(endp((V168)))){
  1143.     goto T587;}
  1144.     goto T562;
  1145. T587:;
  1146.     if(type_of((V169))==t_symbol){
  1147.     goto T591;}
  1148.     (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[75],(V164),(V169))));
  1149. T591:;
  1150.     V158= make_cons((V169),(V158));
  1151.     V168= cdr((V168));
  1152.     V169= car((V168));
  1153.     goto T586;}
  1154. T582:;
  1155.     if((V165!= VV[134]))goto T601;
  1156.     if(!(endp(cdr((V164))))){
  1157.     goto T602;}
  1158.     (void)((VFUN_NARGS=2,(*(LnkLI121))(VV[76],(V164))));
  1159. T602:;
  1160.     {object V170;
  1161.     V170= (*(LnkLI122))(cadr((V164)));
  1162.     if(((V170))==Cnil){
  1163.     goto T562;}
  1164.     {register object V171;
  1165.     object V172;
  1166.     V171= cddr((V164));
  1167.     V172= car((V171));
  1168. T611:;
  1169.     if(!(endp((V171)))){
  1170.     goto T612;}
  1171.     goto T562;
  1172. T612:;
  1173.     if(type_of((V172))==t_symbol){
  1174.     goto T616;}
  1175.     (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[77],(V164),(V172))));
  1176. T616:;
  1177.     V173= make_cons((V172),(V170));
  1178.     V159= make_cons(/* INLINE-ARGS */V173,(V159));
  1179.     V171= cdr((V171));
  1180.     V172= car((V171));
  1181.     goto T611;}}
  1182. T601:;
  1183.     if((V165!= VV[79]))goto T626;
  1184.     {register object V174;
  1185.     object V175;
  1186.     V174= cdr((V164));
  1187.     V175= car((V174));
  1188. T630:;
  1189.     if(!(endp((V174)))){
  1190.     goto T631;}
  1191.     goto T562;
  1192. T631:;
  1193.     if(type_of((V175))==t_symbol){
  1194.     goto T635;}
  1195.     (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[78],(V164),(V175))));
  1196. T635:;
  1197.     V176= make_cons((V175),VV[79]);
  1198.     V159= make_cons(/* INLINE-ARGS */V176,(V159));
  1199.     V174= cdr((V174));
  1200.     V175= car((V174));
  1201.     goto T630;}
  1202. T626:;
  1203.     if((V165!= VV[181]))goto T645;
  1204.     {register object V177;
  1205.     object V178;
  1206.     V177= cdr((V164));
  1207.     V178= car((V177));
  1208. T649:;
  1209.     if(!(endp((V177)))){
  1210.     goto T650;}
  1211.     goto T562;
  1212. T650:;
  1213.     if(type_of((V178))==t_symbol){
  1214.     goto T654;}
  1215.     (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[80],(V164),(V178))));
  1216. T654:;
  1217.     V179= make_cons((V178),VV[81]);
  1218.     V159= make_cons(/* INLINE-ARGS */V179,(V159));
  1219.     V177= cdr((V177));
  1220.     V178= car((V177));
  1221.     goto T649;}
  1222. T645:;
  1223.     if((V165== VV[136])
  1224.     || (V165== VV[137])
  1225.     || (V165== VV[152])
  1226.     || (V165== VV[138])
  1227.     || (V165== VV[144]))goto T665;
  1228.     if((V165== VV[145])
  1229.     || (V165== VV[146])
  1230.     || (V165== VV[147])
  1231.     || (V165== VV[148])
  1232.     || (V165== VV[149]))goto T665;
  1233.     if((V165== VV[25])
  1234.     || (V165== VV[150])
  1235.     || (V165== VV[151])
  1236.     || (V165== VV[153])
  1237.     || (V165== VV[154]))goto T665;
  1238.     if((V165== VV[32])
  1239.     || (V165== VV[155])
  1240.     || (V165== VV[156])
  1241.     || (V165== VV[139])
  1242.     || (V165== Cnil))goto T665;
  1243.     if((V165== VV[157])
  1244.     || (V165== VV[158])
  1245.     || (V165== VV[159])
  1246.     || (V165== VV[160])
  1247.     || (V165== VV[161]))goto T665;
  1248.     if((V165== VV[162])
  1249.     || (V165== VV[163])
  1250.     || (V165== VV[164])
  1251.     || (V165== VV[165])
  1252.     || (V165== VV[166]))goto T665;
  1253.     if((V165== VV[167])
  1254.     || (V165== VV[168])
  1255.     || (V165== VV[169])
  1256.     || (V165== VV[170])
  1257.     || (V165== VV[171]))goto T665;
  1258.     if((V165== VV[172])
  1259.     || (V165== VV[173])
  1260.     || (V165== VV[174])
  1261.     || (V165== VV[175])
  1262.     || (V165== Ct))goto T665;
  1263.     if((V165!= VV[176])
  1264.     && (V165!= VV[177])
  1265.     && (V165!= VV[178])
  1266.     && (V165!= VV[82]))goto T664;
  1267. T665:;
  1268.     {object V180;
  1269.     if(!((car((V164)))==(VV[82]))){
  1270.     goto T668;}
  1271.     V180= car((V164));
  1272.     goto T666;
  1273. T668:;
  1274.     V180= (*(LnkLI122))(car((V164)));
  1275. T666:;
  1276.     if(((V180))==Cnil){
  1277.     goto T562;}
  1278.     {register object V181;
  1279.     object V182;
  1280.     V181= cdr((V164));
  1281.     V182= car((V181));
  1282. T675:;
  1283.     if(!(endp((V181)))){
  1284.     goto T676;}
  1285.     goto T562;
  1286. T676:;
  1287.     if(type_of((V182))==t_symbol){
  1288.     goto T680;}
  1289.     (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[83],(V164),(V182))));
  1290. T680:;
  1291.     V183= make_cons((V182),(V180));
  1292.     V159= make_cons(/* INLINE-ARGS */V183,(V159));
  1293.     V181= cdr((V181));
  1294.     V182= car((V181));
  1295.     goto T675;}}
  1296. T664:;
  1297.     V160= make_cons((V164),(V160));}
  1298. T562:;
  1299.     V163= cdr((V163));
  1300.     V164= car((V163));
  1301.     goto T552;}
  1302. T545:;
  1303.     goto T523;
  1304. T532:;
  1305.     {object V184;
  1306.     V184= car((V155));
  1307.     V155= cdr((V155));}
  1308.     goto T525;
  1309. T523:;
  1310.     base[2]= (V155);
  1311.     base[3]= (V157);
  1312.     base[4]= (V159);
  1313.     base[5]= (V158);
  1314.     base[6]= (V160);
  1315.     base[7]= (V161);
  1316.     vs_top=(vs_base=base+2)+6;
  1317.     return;}
  1318.     }
  1319. }
  1320. /*    local entry for function C1DECL-BODY    */
  1321.  
  1322. static object LI23(V187,V188)
  1323.  
  1324. object V187;object V188;
  1325. {     VMB23 VMS23 VMV23
  1326.     bds_check;
  1327. TTL:;
  1328.     {register object V189;
  1329.     V189= Cnil;
  1330.     if(((V187))!=Cnil){
  1331.     goto T708;}
  1332.     {object V190 = (*(LnkLI182))((V188));
  1333.     VMR23(V190)}
  1334. T708:;
  1335.     bds_bind(VV[15],symbol_value(VV[15]));
  1336.     bds_bind(VV[64],symbol_value(VV[64]));
  1337.     bds_bind(VV[18],symbol_value(VV[18]));
  1338.     bds_bind(VV[55],symbol_value(VV[55]));
  1339.     bds_bind(VV[54],symbol_value(VV[54]));
  1340.     {object V191;
  1341.     register object V192;
  1342.     V191= (V187);
  1343.     V192= car((V191));
  1344. T714:;
  1345.     if(!(endp((V191)))){
  1346.     goto T715;}
  1347.     goto T710;
  1348. T715:;
  1349.     {object V193= car((V192));
  1350.     if((V193!= VV[131]))goto T720;
  1351.     {object V194;
  1352.     register object V195;
  1353.     V194= cdr((V192));
  1354.     V195= car((V194));
  1355. T724:;
  1356.     if(!(endp((V194)))){
  1357.     goto T725;}
  1358.     goto T719;
  1359. T725:;
  1360.     if(!(type_of((V195))==t_symbol)){
  1361.     goto T729;}
  1362.     V195= list(2,(V195),small_fixnum(3));
  1363. T729:;
  1364.     if(!(type_of((V195))==t_cons)){
  1365.     goto T734;}
  1366.     if(!(type_of(cdr((V195)))==t_cons)){
  1367.     goto T734;}
  1368.     {object V196= cadr((V195));
  1369.     if(!(type_of(V196)==t_fixnum||
  1370. type_of(V196)==t_bignum||
  1371. type_of(V196)==t_ratio||
  1372. type_of(V196)==t_shortfloat||
  1373. type_of(V196)==t_longfloat||
  1374. type_of(V196)==t_complex)){
  1375.     goto T734;}}
  1376.     base[8]= small_fixnum(0);
  1377.     base[9]= cadr((V195));
  1378.     base[10]= small_fixnum(3);
  1379.     vs_top=(vs_base=base+8)+3;
  1380.     Lmonotonically_nondecreasing();
  1381.     vs_top=sup;
  1382.     if((vs_base[0])!=Cnil){
  1383.     goto T735;}
  1384. T734:;
  1385.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[84],(V195))));
  1386.     goto T733;
  1387. T735:;
  1388.     {object V197= car((V195));
  1389.     if((V197!= VV[85]))goto T746;
  1390.     (VV[54]->s.s_dbind)= ((fix(cadr((V195))))>=(2)?Ct:Cnil);
  1391.     V198= list(2,VV[85],cadr((V195)));
  1392.     V189= make_cons(/* INLINE-ARGS */V198,(V189));
  1393.     goto T733;
  1394. T746:;
  1395.     if((V197!= VV[86]))goto T750;
  1396.     (VV[55]->s.s_dbind)= cadr((V195));
  1397.     V199= list(2,VV[86],cadr((V195)));
  1398.     V189= make_cons(/* INLINE-ARGS */V199,(V189));
  1399.     goto T733;
  1400. T750:;
  1401.     if((V197!= VV[132])
  1402.     && (V197!= VV[133]))goto T754;
  1403.     goto T733;
  1404. T754:;
  1405.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[87],car((V195)))));}
  1406. T733:;
  1407.     V194= cdr((V194));
  1408.     V195= car((V194));
  1409.     goto T724;}
  1410. T720:;
  1411.     if((V193!= VV[140]))goto T760;
  1412.     if(endp(cdr((V192)))){
  1413.     goto T761;}
  1414.     if(!(type_of(cadr((V192)))==t_cons)){
  1415.     goto T761;}
  1416.     if(!((caadr((V192)))==(VV[26]))){
  1417.     goto T761;}
  1418.     if(!(endp(cdadr((V192))))){
  1419.     goto T762;}
  1420. T761:;
  1421.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[88],(V192))));
  1422.     goto T719;
  1423. T762:;
  1424.     {object V200;
  1425.     object V201;
  1426.     V200= cddr((V192));
  1427.     V201= car((V200));
  1428. T773:;
  1429.     if(!(endp((V200)))){
  1430.     goto T774;}
  1431.     goto T719;
  1432. T774:;
  1433.     (void)((*(LnkLI183))((V201),cadadr((V192)),cddadr((V192))));
  1434.     V200= cdr((V200));
  1435.     V201= car((V200));
  1436.     goto T773;}
  1437. T760:;
  1438.     if((V193!= VV[26]))goto T784;
  1439.     if(endp(cdr((V192)))){
  1440.     goto T785;}
  1441.     if(endp(cddr((V192)))){
  1442.     goto T785;}
  1443.     if(type_of(cadr((V192)))==t_symbol){
  1444.     goto T786;}
  1445. T785:;
  1446.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[89],(V192))));
  1447.     goto T719;
  1448. T786:;
  1449.     (void)((*(LnkLI183))(cadr((V192)),caddr((V192)),cdddr((V192))));
  1450.     goto T719;
  1451. T784:;
  1452.     if((V193!= VV[90]))goto T792;
  1453.     {object V202;
  1454.     register object V203;
  1455.     V202= cdr((V192));
  1456.     V203= car((V202));
  1457. T796:;
  1458.     if(!(endp((V202)))){
  1459.     goto T797;}
  1460.     goto T719;
  1461. T797:;
  1462.     if(!(type_of((V203))==t_symbol)){
  1463.     goto T803;}
  1464.     V204= list(2,VV[90],(V203));
  1465.     V189= make_cons(/* INLINE-ARGS */V204,(V189));
  1466.     (VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))((V203),(VV[18]->s.s_dbind)));
  1467.     goto T801;
  1468. T803:;
  1469.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[91],(V203))));
  1470. T801:;
  1471.     V202= cdr((V202));
  1472.     V203= car((V202));
  1473.     goto T796;}
  1474. T792:;
  1475.     if((V193!= VV[92]))goto T813;
  1476.     {object V205;
  1477.     register object V206;
  1478.     V205= cdr((V192));
  1479.     V206= car((V205));
  1480. T817:;
  1481.     if(!(endp((V205)))){
  1482.     goto T818;}
  1483.     goto T719;
  1484. T818:;
  1485.     if(!(type_of((V206))==t_symbol)){
  1486.     goto T824;}
  1487.     V207= list(2,VV[92],(V206));
  1488.     V189= make_cons(/* INLINE-ARGS */V207,(V189));
  1489.     (VV[18]->s.s_dbind)= make_cons((V206),(VV[18]->s.s_dbind));
  1490.     goto T822;
  1491. T824:;
  1492.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[93],(V206))));
  1493. T822:;
  1494.     V205= cdr((V205));
  1495.     V206= car((V205));
  1496.     goto T817;}
  1497. T813:;
  1498.     if((V193!= VV[143]))goto T834;
  1499.     {object V208;
  1500.     register object V209;
  1501.     V208= cdr((V192));
  1502.     V209= car((V208));
  1503. T838:;
  1504.     if(!(endp((V208)))){
  1505.     goto T839;}
  1506.     goto T719;
  1507. T839:;
  1508.     if(!(type_of((V209))==t_symbol)){
  1509.     goto T845;}
  1510.     {register object x= (V209),V210= (VV[64]->s.s_dbind);
  1511.     while(!endp(V210))
  1512.     if(eql(x,V210->c.c_car)){
  1513.     goto T843;
  1514.     }else V210=V210->c.c_cdr;}
  1515.     (VV[64]->s.s_dbind)= make_cons((V209),(VV[64]->s.s_dbind));
  1516.     goto T843;
  1517. T845:;
  1518.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[94],(V209))));
  1519. T843:;
  1520.     V208= cdr((V208));
  1521.     V209= car((V208));
  1522.     goto T838;}
  1523. T834:;
  1524.     {register object x= car((V192)),V211= (VV[64]->s.s_dbind);
  1525.     while(!endp(V211))
  1526.     if(eql(x,V211->c.c_car)){
  1527.     goto T719;
  1528.     }else V211=V211->c.c_cdr;}
  1529.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[95],car((V192)))));}
  1530. T719:;
  1531.     V191= cdr((V191));
  1532.     V192= car((V191));
  1533.     goto T714;}
  1534. T710:;
  1535.     V188= (*(LnkLI182))((V188));
  1536.     {object V212 = list(4,VV[96],cadr((V188)),(V189),(V188));
  1537.     bds_unwind1;
  1538.     bds_unwind1;
  1539.     bds_unwind1;
  1540.     bds_unwind1;
  1541.     bds_unwind1;
  1542.     VMR23(V212)}}
  1543. }
  1544. /*    function definition for C2DECL-BODY    */
  1545.  
  1546. static L24()
  1547. {register object *base=vs_base;
  1548.     register object *sup=base+VM24; VC24
  1549.     vs_reserve(VM24);
  1550.     bds_check;
  1551.     {object V213;
  1552.     object V214;
  1553.     check_arg(2);
  1554.     V213=(base[0]);
  1555.     V214=(base[1]);
  1556.     vs_top=sup;
  1557. TTL:;
  1558.     bds_bind(VV[53],symbol_value(VV[53]));
  1559.     bds_bind(VV[54],symbol_value(VV[54]));
  1560.     bds_bind(VV[49],symbol_value(VV[49]));
  1561.     bds_bind(VV[18],symbol_value(VV[18]));
  1562.     bds_bind(VV[55],symbol_value(VV[55]));
  1563.     {register object V215;
  1564.     register object V216;
  1565.     V215= (V213);
  1566.     V216= car((V215));
  1567. T868:;
  1568.     if(!(endp((V215)))){
  1569.     goto T869;}
  1570.     goto T864;
  1571. T869:;
  1572.     {object V217= car((V216));
  1573.     if((V217!= VV[85]))goto T874;
  1574.     {register int V218;
  1575.     V218= fix(cadr((V216)));
  1576.     (VV[53]->s.s_dbind)= ((V218)>=(1)?Ct:Cnil);
  1577.     (VV[54]->s.s_dbind)= ((V218)>=(2)?Ct:Cnil);
  1578.     (VV[49]->s.s_dbind)= ((V218)>=(3)?Ct:Cnil);
  1579.     goto T873;}
  1580. T874:;
  1581.     if((V217!= VV[86]))goto T881;
  1582.     (VV[55]->s.s_dbind)= cadr((V216));
  1583.     goto T873;
  1584. T881:;
  1585.     if((V217!= VV[92]))goto T883;
  1586.     (VV[18]->s.s_dbind)= make_cons(cadr((V216)),(VV[18]->s.s_dbind));
  1587.     goto T873;
  1588. T883:;
  1589.     if((V217!= VV[90]))goto T885;
  1590.     (VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))(cadr((V216)),(VV[18]->s.s_dbind)));
  1591.     goto T873;
  1592. T885:;
  1593.     (void)((*(LnkLI185))());}
  1594. T873:;
  1595.     V215= cdr((V215));
  1596.     V216= car((V215));
  1597.     goto T868;}
  1598. T864:;
  1599.     base[7]= (V214);
  1600.     vs_top=(vs_base=base+7)+1;
  1601.     (void) (*Lnk186)();
  1602.     bds_unwind1;
  1603.     bds_unwind1;
  1604.     bds_unwind1;
  1605.     bds_unwind1;
  1606.     bds_unwind1;
  1607.     return;
  1608.     }
  1609. }
  1610. /*    local entry for function CHECK-VDECL    */
  1611.  
  1612. static object LI25(V222,V223,V224)
  1613.  
  1614. register object V222;object V223;object V224;
  1615. {     VMB25 VMS25 VMV25
  1616. TTL:;
  1617.     {register object V225;
  1618.     register object V226;
  1619.     V225= (V223);
  1620.     V226= car((V225));
  1621. T897:;
  1622.     if(!(endp((V225)))){
  1623.     goto T898;}
  1624.     goto T893;
  1625. T898:;
  1626.     {register object x= car((V226)),V227= (V222);
  1627.     while(!endp(V227))
  1628.     if(eql(x,V227->c.c_car)){
  1629.     goto T902;
  1630.     }else V227=V227->c.c_cdr;}
  1631.     (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[97],car((V226)))));
  1632. T902:;
  1633.     V225= cdr((V225));
  1634.     V226= car((V225));
  1635.     goto T897;}
  1636. T893:;
  1637.     {register object V228;
  1638.     register object V229;
  1639.     V228= (V224);
  1640.     V229= car((V228));
  1641. T913:;
  1642.     if(!(endp((V228)))){
  1643.     goto T914;}
  1644.     {object V230 = Cnil;
  1645.     VMR25(V230)}
  1646. T914:;
  1647.     {register object x= (V229),V231= (V222);
  1648.     while(!endp(V231))
  1649.     if(eql(x,V231->c.c_car)){
  1650.     goto T918;
  1651.     }else V231=V231->c.c_cdr;}
  1652.     (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[98],(V229))));
  1653. T918:;
  1654.     V228= cdr((V228));
  1655.     V229= car((V228));
  1656.     goto T913;}
  1657. }
  1658. /*    local entry for function PROCLAMATION    */
  1659.  
  1660. static object LI26(V233)
  1661.  
  1662. object V233;
  1663. {     VMB26 VMS26 VMV26
  1664. TTL:;
  1665.     {object V234= car((V233));
  1666.     if((V234!= VV[129]))goto T926;
  1667.     {register object V235;
  1668.     object V236;
  1669.     V235= cdr((V233));
  1670.     V236= car((V235));
  1671. T930:;
  1672.     if(!(endp((V235)))){
  1673.     goto T931;}
  1674.     {object V237 = Ct;
  1675.     VMR26(V237)}
  1676. T931:;
  1677.     if(!(type_of((V236))==t_symbol)){
  1678.     goto T937;}
  1679.     base[2]= (V236);
  1680.     vs_top=(vs_base=base+2)+1;
  1681.     siLspecialp();
  1682.     vs_top=sup;
  1683.     if((vs_base[0])!=Cnil){
  1684.     goto T935;}
  1685.     {object V238 = Cnil;
  1686.     VMR26(V238)}
  1687. T937:;
  1688.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[99],(V236))));
  1689. T935:;
  1690.     V235= cdr((V235));
  1691.     V236= car((V235));
  1692.     goto T930;}
  1693. T926:;
  1694.     if((V234!= VV[131]))goto T947;
  1695.     {register object V239;
  1696.     register object V240;
  1697.     V239= cdr((V233));
  1698.     V240= car((V239));
  1699. T951:;
  1700.     if(!(endp((V239)))){
  1701.     goto T952;}
  1702.     {object V241 = Ct;
  1703.     VMR26(V241)}
  1704. T952:;
  1705.     if(!(type_of((V240))==t_symbol)){
  1706.     goto T956;}
  1707.     V240= list(2,(V240),small_fixnum(3));
  1708. T956:;
  1709.     if(!(type_of((V240))==t_cons)){
  1710.     goto T961;}
  1711.     if(!(type_of(cdr((V240)))==t_cons)){
  1712.     goto T961;}
  1713.     {object V242= cadr((V240));
  1714.     if(!(type_of(V242)==t_fixnum||
  1715. type_of(V242)==t_bignum||
  1716. type_of(V242)==t_ratio||
  1717. type_of(V242)==t_shortfloat||
  1718. type_of(V242)==t_longfloat||
  1719. type_of(V242)==t_complex)){
  1720.     goto T961;}}
  1721.     base[2]= small_fixnum(0);
  1722.     base[3]= cadr((V240));
  1723.     base[4]= small_fixnum(3);
  1724.     vs_top=(vs_base=base+2)+3;
  1725.     Lmonotonically_nondecreasing();
  1726.     vs_top=sup;
  1727.     if((vs_base[0])!=Cnil){
  1728.     goto T962;}
  1729. T961:;
  1730.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[100],(V240))));
  1731.     goto T960;
  1732. T962:;
  1733.     {object V243= car((V240));
  1734.     if((V243!= VV[85]))goto T973;
  1735.     V244= cadr((V240));
  1736.     if((symbol_value(VV[53]))!=Cnil){
  1737.     goto T978;}
  1738.     V245= small_fixnum(0);
  1739.     goto T976;
  1740. T978:;
  1741.     if((symbol_value(VV[54]))!=Cnil){
  1742.     goto T981;}
  1743.     V245= small_fixnum(1);
  1744.     goto T976;
  1745. T981:;
  1746.     if((symbol_value(VV[49]))!=Cnil){
  1747.     goto T984;}
  1748.     V245= small_fixnum(2);
  1749.     goto T976;
  1750. T984:;
  1751.     V245= small_fixnum(3);
  1752. T976:;
  1753.     if(number_compare(/* INLINE-ARGS */V244,V245)==0){
  1754.     goto T960;}
  1755.     {object V246 = Cnil;
  1756.     VMR26(V246)}
  1757. T973:;
  1758.     if((V243!= VV[86]))goto T986;
  1759.     if(number_compare(cadr((V240)),symbol_value(VV[55]))==0){
  1760.     goto T960;}
  1761.     {object V247 = Cnil;
  1762.     VMR26(V247)}
  1763. T986:;
  1764.     if((V243!= VV[132]))goto T989;
  1765.     if(number_compare(cadr((V240)),symbol_value(VV[56]))==0){
  1766.     goto T960;}
  1767.     {object V248 = Cnil;
  1768.     VMR26(V248)}
  1769. T989:;
  1770.     if((V243!= VV[133]))goto T992;
  1771.     V249= number_minus(small_fixnum(3),cadr((V240)));
  1772.     if(number_compare(/* INLINE-ARGS */V249,symbol_value(VV[56]))==0){
  1773.     goto T960;}
  1774.     {object V250 = Cnil;
  1775.     VMR26(V250)}
  1776. T992:;
  1777.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[101],car((V240)))));}
  1778. T960:;
  1779.     V239= cdr((V239));
  1780.     V240= car((V239));
  1781.     goto T951;}
  1782. T947:;
  1783.     if((V234!= VV[134]))goto T1000;
  1784.     if(!(type_of(cdr((V233)))==t_cons)){
  1785.     goto T1002;}
  1786.     {object V251;
  1787.     object V252;
  1788.     V251= (*(LnkLI122))(cadr((V233)));
  1789.     V252= Cnil;
  1790.     {register object V253;
  1791.     object V254;
  1792.     V253= cddr((V233));
  1793.     V254= car((V253));
  1794. T1008:;
  1795.     if(!(endp((V253)))){
  1796.     goto T1009;}
  1797.     {object V255 = Ct;
  1798.     VMR26(V255)}
  1799. T1009:;
  1800.     if(!(type_of((V254))==t_symbol)){
  1801.     goto T1015;}
  1802.     V252= get((V254),VV[68],Cnil);
  1803.     if(((V252))==Cnil){
  1804.     goto T1017;}
  1805.     if(equal((V252),(V251))){
  1806.     goto T1013;}
  1807. T1017:;
  1808.     {object V256 = Cnil;
  1809.     VMR26(V256)}
  1810. T1015:;
  1811.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[102],(V254))));
  1812. T1013:;
  1813.     V253= cdr((V253));
  1814.     V254= car((V253));
  1815.     goto T1008;}}
  1816. T1002:;
  1817.     {object V257 = (VFUN_NARGS=2,(*(LnkLI123))(VV[103],(V233)));
  1818.     VMR26(V257)}
  1819. T1000:;
  1820.     if((V234!= VV[136])
  1821.     && (V234!= VV[137])
  1822.     && (V234!= VV[138])
  1823.     && (V234!= VV[139]))goto T1027;
  1824.     {object V258;
  1825.     object V259;
  1826.     V258= (*(LnkLI122))(car((V233)));
  1827.     V259= Cnil;
  1828.     {register object V260;
  1829.     object V261;
  1830.     V260= cdr((V233));
  1831.     V261= car((V260));
  1832. T1032:;
  1833.     if(!(endp((V260)))){
  1834.     goto T1033;}
  1835.     {object V262 = Ct;
  1836.     VMR26(V262)}
  1837. T1033:;
  1838.     if(!(type_of((V261))==t_symbol)){
  1839.     goto T1039;}
  1840.     V259= get((V261),VV[68],Cnil);
  1841.     if(((V259))==Cnil){
  1842.     goto T1041;}
  1843.     if(equal((V259),(V258))){
  1844.     goto T1037;}
  1845. T1041:;
  1846.     {object V263 = Cnil;
  1847.     VMR26(V263)}
  1848. T1039:;
  1849.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[104],(V261))));
  1850. T1037:;
  1851.     V260= cdr((V260));
  1852.     V261= car((V260));
  1853.     goto T1032;}}
  1854. T1027:;
  1855.     if((V234!= VV[140]))goto T1051;
  1856.     if(endp(cdr((V233)))){
  1857.     goto T1052;}
  1858.     if(!(type_of(cadr((V233)))==t_cons)){
  1859.     goto T1052;}
  1860.     if(!((caadr((V233)))==(VV[26]))){
  1861.     goto T1052;}
  1862.     if(!(endp(cdadr((V233))))){
  1863.     goto T1053;}
  1864. T1052:;
  1865.     {object V264 = (VFUN_NARGS=2,(*(LnkLI123))(VV[105],(V233)));
  1866.     VMR26(V264)}
  1867. T1053:;
  1868.     {register object V265;
  1869.     object V266;
  1870.     V265= cddr((V233));
  1871.     V266= car((V265));
  1872. T1064:;
  1873.     if(!(endp((V265)))){
  1874.     goto T1065;}
  1875.     {object V267 = Ct;
  1876.     VMR26(V267)}
  1877. T1065:;
  1878.     if((get((V266),VV[38],Cnil))==Cnil){
  1879.     goto T1070;}
  1880.     V268= (*(LnkLI124))(cadadr((V233)));
  1881.     V269= get((V266),VV[36],Cnil);
  1882.     if(!(equal(/* INLINE-ARGS */V268,V269))){
  1883.     goto T1070;}
  1884.     V270= (*(LnkLI125))(cddadr((V233)));
  1885.     V271= get((V266),VV[37],Cnil);
  1886.     if(equal(/* INLINE-ARGS */V270,V271)){
  1887.     goto T1069;}
  1888. T1070:;
  1889.     {object V272 = Cnil;
  1890.     VMR26(V272)}
  1891. T1069:;
  1892.     V265= cdr((V265));
  1893.     V266= car((V265));
  1894.     goto T1064;}
  1895. T1051:;
  1896.     if((V234!= VV[26]))goto T1083;
  1897.     if(endp(cdr((V233)))){
  1898.     goto T1084;}
  1899.     if(!(endp(cddr((V233))))){
  1900.     goto T1085;}
  1901. T1084:;
  1902.     {object V273 = (VFUN_NARGS=2,(*(LnkLI123))(VV[106],(V233)));
  1903.     VMR26(V273)}
  1904. T1085:;
  1905.     if((get(cadr((V233)),VV[38],Cnil))!=Cnil){
  1906.     goto T1089;}
  1907.     {object V274 = Cnil;
  1908.     VMR26(V274)}
  1909. T1089:;
  1910.     V275= (*(LnkLI124))(caddr((V233)));
  1911.     V276= get(cadr((V233)),VV[36],Cnil);
  1912.     if(equal(/* INLINE-ARGS */V275,V276)){
  1913.     goto T1091;}
  1914.     {object V277 = Cnil;
  1915.     VMR26(V277)}
  1916. T1091:;
  1917.     V278= (*(LnkLI125))(cdddr((V233)));
  1918.     V279= get(cadr((V233)),VV[37],Cnil);
  1919.     {object V280 = (equal(/* INLINE-ARGS */V278,V279)?Ct:Cnil);
  1920.     VMR26(V280)}
  1921. T1083:;
  1922.     if((V234!= VV[90]))goto T1095;
  1923.     {register object V281;
  1924.     object V282;
  1925.     V281= cdr((V233));
  1926.     V282= car((V281));
  1927. T1099:;
  1928.     if(!(endp((V281)))){
  1929.     goto T1100;}
  1930.     {object V283 = Ct;
  1931.     VMR26(V283)}
  1932. T1100:;
  1933.     if(!(type_of((V282))==t_symbol)){
  1934.     goto T1106;}
  1935.     if((get((V282),VV[50],Cnil))==Cnil){
  1936.     goto T1104;}
  1937.     {object V284 = Cnil;
  1938.     VMR26(V284)}
  1939. T1106:;
  1940.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[107],(V282))));
  1941. T1104:;
  1942.     V281= cdr((V281));
  1943.     V282= car((V281));
  1944.     goto T1099;}
  1945. T1095:;
  1946.     if((V234!= VV[92]))goto T1115;
  1947.     {register object V285;
  1948.     object V286;
  1949.     V285= cdr((V233));
  1950.     V286= car((V285));
  1951. T1119:;
  1952.     if(!(endp((V285)))){
  1953.     goto T1120;}
  1954.     {object V287 = Ct;
  1955.     VMR26(V287)}
  1956. T1120:;
  1957.     if(!(type_of((V286))==t_symbol)){
  1958.     goto T1126;}
  1959.     if((get((V286),VV[50],Cnil))!=Cnil){
  1960.     goto T1124;}
  1961.     {object V288 = Cnil;
  1962.     VMR26(V288)}
  1963. T1126:;
  1964.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[108],(V286))));
  1965. T1124:;
  1966.     V285= cdr((V285));
  1967.     V286= car((V285));
  1968.     goto T1119;}
  1969. T1115:;
  1970.     if((V234!= VV[79])
  1971.     && (V234!= VV[142]))goto T1135;
  1972.     {register object V289;
  1973.     object V290;
  1974.     V289= cdr((V233));
  1975.     V290= car((V289));
  1976. T1139:;
  1977.     if(!(endp((V289)))){
  1978.     goto T1140;}
  1979.     {object V291 = Ct;
  1980.     VMR26(V291)}
  1981. T1140:;
  1982.     if(type_of((V290))==t_symbol){
  1983.     goto T1144;}
  1984.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[109],(V290))));
  1985. T1144:;
  1986.     V289= cdr((V289));
  1987.     V290= car((V289));
  1988.     goto T1139;}
  1989. T1135:;
  1990.     if((V234!= VV[143]))goto T1152;
  1991.     {register object V292;
  1992.     object V293;
  1993.     V292= cdr((V233));
  1994.     V293= car((V292));
  1995. T1156:;
  1996.     if(!(endp((V292)))){
  1997.     goto T1157;}
  1998.     {object V294 = Ct;
  1999.     VMR26(V294)}
  2000. T1157:;
  2001.     if(!(type_of((V293))==t_symbol)){
  2002.     goto T1163;}
  2003.     {register object x= (V293),V295= symbol_value(VV[64]);
  2004.     while(!endp(V295))
  2005.     if(eql(x,V295->c.c_car)){
  2006.     goto T1161;
  2007.     }else V295=V295->c.c_cdr;}
  2008.     {object V296 = Cnil;
  2009.     VMR26(V296)}
  2010. T1163:;
  2011.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[110],(V293))));
  2012. T1161:;
  2013.     V292= cdr((V292));
  2014.     V293= car((V292));
  2015.     goto T1156;}
  2016. T1152:;
  2017.     if((V234== VV[144])
  2018.     || (V234== VV[145])
  2019.     || (V234== VV[146])
  2020.     || (V234== VV[147])
  2021.     || (V234== VV[148]))goto T1173;
  2022.     if((V234== VV[137])
  2023.     || (V234== VV[149])
  2024.     || (V234== VV[25])
  2025.     || (V234== VV[150])
  2026.     || (V234== VV[151]))goto T1173;
  2027.     if((V234== VV[152])
  2028.     || (V234== VV[136])
  2029.     || (V234== VV[153])
  2030.     || (V234== VV[154])
  2031.     || (V234== VV[32]))goto T1173;
  2032.     if((V234== VV[155])
  2033.     || (V234== VV[156])
  2034.     || (V234== VV[139])
  2035.     || (V234== Cnil)
  2036.     || (V234== VV[157]))goto T1173;
  2037.     if((V234== VV[158])
  2038.     || (V234== VV[159])
  2039.     || (V234== VV[160])
  2040.     || (V234== VV[161])
  2041.     || (V234== VV[162]))goto T1173;
  2042.     if((V234== VV[163])
  2043.     || (V234== VV[164])
  2044.     || (V234== VV[165])
  2045.     || (V234== VV[138])
  2046.     || (V234== VV[166]))goto T1173;
  2047.     if((V234== VV[167])
  2048.     || (V234== VV[168])
  2049.     || (V234== VV[169])
  2050.     || (V234== VV[170])
  2051.     || (V234== VV[171]))goto T1173;
  2052.     if((V234== VV[172])
  2053.     || (V234== VV[173])
  2054.     || (V234== VV[174])
  2055.     || (V234== VV[175])
  2056.     || (V234== Ct))goto T1173;
  2057.     if((V234!= VV[176])
  2058.     && (V234!= VV[177])
  2059.     && (V234!= VV[178]))goto T1172;
  2060. T1173:;
  2061.     {object V297;
  2062.     V297= (*(LnkLI122))(car((V233)));
  2063.     {register object V298;
  2064.     object V299;
  2065.     V298= cdr((V233));
  2066.     V299= car((V298));
  2067. T1178:;
  2068.     if(!(endp((V298)))){
  2069.     goto T1179;}
  2070.     {object V300 = Ct;
  2071.     VMR26(V300)}
  2072. T1179:;
  2073.     if(!(type_of((V299))==t_symbol)){
  2074.     goto T1185;}
  2075.     V301= get((V299),VV[68],Cnil);
  2076.     if(equal(V301,(V297))){
  2077.     goto T1183;}
  2078.     {object V302 = Cnil;
  2079.     VMR26(V302)}
  2080. T1185:;
  2081.     (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[111],(V299))));
  2082. T1183:;
  2083.     V298= cdr((V298));
  2084.     V299= car((V298));
  2085.     goto T1178;}}
  2086. T1172:;
  2087.     {register object x= car((V233)),V303= symbol_value(VV[64]);
  2088.     while(!endp(V303))
  2089.     if(eql(x,V303->c.c_car)){
  2090.     goto T1196;
  2091.     }else V303=V303->c.c_cdr;}
  2092.     {object V304 = (VFUN_NARGS=2,(*(LnkLI123))(VV[112],car((V233))));
  2093.     VMR26(V304)}
  2094. T1196:;
  2095.     {object V305 = Cnil;
  2096.     VMR26(V305)}}
  2097. }
  2098. static LnkT186(){ call_or_link(VV[186],&Lnk186);} /* C2EXPR */
  2099. static object  LnkTLI185(){return call_proc0(VV[185],&LnkLI185);} /* BABOON */
  2100. static object  LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[184],&LnkLI184,ap);} /* REMOVE */
  2101. static object  LnkTLI183(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[183],&LnkLI183,3,ap);} /* ADD-FUNCTION-DECLARATION */
  2102. static object  LnkTLI182(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[182],&LnkLI182,1,ap);} /* C1PROGN */
  2103. static object  LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],&LnkLI180,1,ap);} /* CMP-MACROEXPAND */
  2104. static object  LnkTLI179(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[179],&LnkLI179,1,ap);} /* SCH-GLOBAL */
  2105. static object  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],&LnkLI141,3,ap);} /* ADD-FUNCTION-PROCLAMATION */
  2106. static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[135],&LnkLI135,2,ap);} /* PROCLAIM-VAR */
  2107. static LnkT130(){ call_or_link(VV[130],&Lnk130);} /* *MAKE-SPECIAL */
  2108. static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[128],&LnkLI128,ap);} /* CMPWARN */
  2109. static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[127],&LnkLI127,2,ap);} /* TYPE-AND */
  2110. static object  LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],&LnkLI126,1,ap);} /* SCH-LOCAL-FUN */
  2111. static object  LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],&LnkLI125,1,ap);} /* FUNCTION-RETURN-TYPE */
  2112. static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],&LnkLI124,1,ap);} /* FUNCTION-ARG-TYPES */
  2113. static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],&LnkLI123,ap);} /* WARN */
  2114. static object  LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[122],&LnkLI122,1,ap);} /* TYPE-FILTER */
  2115. static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],&LnkLI121,ap);} /* CMPERR */
  2116. static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* COMPILED-FUNCTION-NAME */
  2117. static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* TYPEP */
  2118. static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* WT-TO-STRING */
  2119. static LnkT117(){ call_or_link(VV[117],&Lnk117);} /* CONTAINS-SHARP-COMMA */
  2120. static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* GET-OUTPUT-STREAM-STRING */
  2121. static object  LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],&LnkLI115,1,ap);} /* WT-DATA1 */
  2122. static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */
  2123. static object  LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],&LnkLI113,1,ap);} /* PUSH-DATA-INCF */
  2124.